home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / rkr_rexx.lzh / setenv.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-02-13  |  564 b   |  19 lines
  1. /*
  2. **  $Id: setenv.rexx,v 1.1 1995/02/12 22:14:06 rkr Exp $
  3. **
  4. **  Stores given CONTENTS into named env. VAR; always stores in env:,
  5. **  conditionally stores in envarc: (if ENVARC is passed with value 1)
  6. **
  7. **  Does NOT indicate success/failure.
  8. **
  9. **  Unlike some AmigaDOS env. operators, these VAR's _will_ go into
  10. **  env:/envarc:.  You canNOT override their destination by embedding a
  11. **  colon.
  12. **
  13. */
  14. parse arg contents, var, envarc
  15.     call putfile( contents, 'env:'var )
  16.     if 1 = envarc then
  17.         call putfile( contents, 'envarc:'var )
  18. return contents
  19.